module Mod_MARdim

	implicit none



!  Domain Definition
!  =================                        143 71
  integer,parameter       ::             mx=71, mxx=mx+1, mx1=mx-1, mx2=mx-2
!   integer,parameter       ::             mx=71, mxx=mx+1, mx1=mx-1, mx2=mx-2
   integer,parameter       ::             my= 1, myy=   1, my1=   1, my2=   1
!  integer,parameter       ::             mz=60, mzz=mz+1, mz1=mz-1, mzA=22
   integer,parameter       ::             mz=30, mzz=mz+1, mz1=mz-1, mzA=11
   integer,parameter       ::             mw=01
   integer,parameter       ::             n6=06, n7 =n6+1, n5 =n6-1


!  Domain Distribution (1! domain ==> following variables are defined as parameters)
!  ===================
                                !0     1
   integer,parameter       :: i0=0, i1=1, ix=mx, ixx=ix+1, ix1=ix-1, ix2=ix-2
   integer,parameter       :: j0=0, j1=1, jy=my, jyy=   1, jy1=   1, jy2=   1
   integer,parameter       :: k0=0, k1=1, kz=mz, kzz=kz+1, kz1=kz-1, kzA=mzA

   integer                 :: i
   integer                 :: j
   integer                 :: k

end
